program testArrayAssignmentValid;
class testArrayAssignmentValid

BEGIN

VAR XRay : ARRAY[0 .. 4] OF integer;
	YY   : integer;

FUNCTION testArrayAssignmentValid;
BEGIN
	doSomething(1,5)
END;

FUNCTION doSomething(val1, val2 : integer): integer;
VAR
    WOW   : integer;
BEGIN
	doSomething := 1; 
	print val1;
        print val2
END

END
.
